home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
026a
/
memprnt.prg
< prev
next >
Wrap
Text File
|
1991-10-20
|
2KB
|
85 lines
* Program..: MEMPRNT.PRG
SET TALK OFF
SET BELL OFF
SET STATUS ON
SET ESCAPE OFF
SET CONFIRM OFF
SET SAFETY OFF
SET ODOMETER TO 5
DO WHILE .T.
CLEAR
@ 2, 0 TO 15,79 DOUBLE
@ 3,29 SAY [MEMBERS REPORT MENU]
@ 4,1 TO 4,78 DOUBLE
@ 7,30 SAY [1. PRINT LABELS 4 BY 1 7/16 ]
@ 8,30 SAY [2. PRINT LABELS 3 1/2 BY 15/16 ]
@ 9,30 SAY [3. PRINT A LIST OF MEMBERS]
@ 10,30 SAY [4. FUTURE ***********]
@ 11,30 SAY [5. FUTURE ***********]
@ 12,30 SAY [6. FUTURE ***********]
@ 13,30 SAY [7. FUTURE ***********]
@ 15,30 SAY '0. EXIT to MAIN MENU'
STORE 0 TO selectnum
@ 17,33 SAY " select "
@ 17,42 GET selectnum PICTURE "9" RANGE 0,7
READ
DO CASE
CASE selectnum = 0
CLEAR
RETURN
CASE selectnum = 1
GOTO 1
DO WHILE .NOT. EOF()
CLEAR
@ 10,10 SAY "PRINTING OUT LABELS"
@ 11,10 SAY "USING SIZE 4 * 1 7/16"
WAIT
LABEL FORM MEM1 NEXT 5 TO PRINT
SKIP
ENDDO
STORE ' ' TO wait_subst
@ 23,0 SAY 'Press any key to continue...' GET wait_subst
READ
CASE selectnum = 2
GOTO 1
DO WHILE .NOT. EOF()
CLEAR
@ 10,10 SAY "PRINTING OUT LABELS"
@ 11,10 SAY "USING SIZE 3 1/2 * 17/16"
WAIT
LABEL FORM MEM2 NEXT 5 TO PRINT
SKIP
ENDDO
STORE ' ' TO wait_subst
@ 23,0 SAY 'Press any key to continue...' GET wait_subst
READ
CASE selectnum = 3
CLEAR
@ 10,10 SAY 'PRESS ALT CAPSLOCK IF YOU WANT COMPRESSED PRINT'
WAIT
REPO FORM MEMBERS HEAD 'BUDGIE MEMBERS LIST' TO PRINT
STORE ' ' TO wait_subst
@ 23,0 SAY 'Press any key to continue...' GET wait_subst
READ
CASE selectnum = 4
STORE ' ' TO wait_subst
@ 23,0 SAY 'Press any key to continue...' GET wait_subst
READ
CASE selectnum = 5
STORE ' ' TO wait_subst
@ 23,0 SAY 'Press any key to continue...' GET wait_subst
READ
CASE selectnum = 6
STORE ' ' TO wait_subst
@ 23,0 SAY 'Press any key to continue...' GET wait_subst
READ
CASE selectnum = 7
STORE ' ' TO wait_subst
@ 23,0 SAY 'Press any key to continue...' GET wait_subst
READ
ENDCASE
ENDDO
RETURN